;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, N.C. 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	1999-2010
;;;	Edited:		8-20-2010
;;;
;;;********************************************************************
(defun set_drive_letters ( / )
  (SETQ home_drive "C:"
	home_user (STRCASE "NIL");must be all uppercase
	home_computer "PARAGLIDE*"
  )
  (IF (OR DOS_HELP check_for_doslib) NIL (LOAD "check_for_doslib" "\nFile CHECK_FOR_DOSLIB.LSP not loaded! "))
  (IF DOS_HELP NIL
    (check_for_doslib)
  )
  (SETQ drives_list (DOS_DRIVES))
  (COND
        ((AND (MEMBER "L:" drives_list)
	      (WCMATCH (DOS_LABEL "L:") "Projects")
	 )
	 (SETQ work_drive "L:"))
;;;        ((AND (MEMBER "H:" drives_list)
;;;	      (WCMATCH (STRCASE (DOS_LABEL "H:")) "TOSHIBA*H:")
;;;	 )
;;;	 (SETQ work_drive "H:"))
	(T (IF ukword NIL (LOAD "ukword" "\nFile UKWORD.LSP not loaded! "))
	 (SETQ drive_kwords (EVAL (CONS 'STRCAT (MAPCAR '(LAMBDA (x) (STRCAT " " x)) drives_list))))
	 (SETQ drive_kwords (SUBSTR drive_kwords 2))
	 (SETQ work_drive (ukword 1 drive_kwords (STRCAT "Select project drive letter " "[" drive_kwords "]") (IF work_drive work_drive NIL)))
	 )
  )
)
(PRINC)
;;;********************************************************************
